home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g42.bas < prev    next >
BASIC Source File  |  1991-10-18  |  394b  |  18 lines
  1. 100 ' G42 T.WAKAMATSU
  2. 110 CLS:C(2)=1:C(3)=2:C(4)=0
  3. 120 PI=3.14159!
  4. 130 CD PLAY 11
  5. 140 FOR L=2 TO 4
  6. 150   F=L
  7. 160   PSET(320,240)
  8. 170   FOR T=0 TO 2*PI STEP PI/1960
  9. 180     IF L=3 THEN F=3-F
  10. 190     X=180*SIN(84*T)
  11. 200     Y=150*SIN(85*T)
  12. 210     Z=150*SIN(86*T)
  13. 220     V=X-Z/2+320:W=Y-Z/2+240
  14. 230     LINE -(V,W),PSET,C(F)
  15. 240   NEXT T
  16. 250   FOR D=1 TO 5000:NEXT D
  17. 260 NEXT L
  18.